<text><span class="style4">ips:</span><span class="style2"></span><span class="style1"> ΓÇó Hold down the shift key when clicking on ΓÇ£Compact!ΓÇ¥ to not display the lengthy log text. ΓÇó Hold down the option key when adding a stack to the list to not add any more after that.</span><span class="style2"></span><span class="style4">Update Information:</span><span class="style1">This StackPacker version 1.0.2 includes numerous changes since version 1.0.1: ΓÇó StackPacker now effectively compresses itself. ΓÇó Shift key stops compacting operation. ΓÇó Clicking on a stack name will no longer open it. ΓÇó Clicking on the Trash icon displays a dialog box. ΓÇó Nolonger mistakes all aliases as stack aliases. ΓÇó Correctly handles all errors (e.g. locked stack, incorrect password, disk full). ΓÇó Automatically adjusts and restores user levels. ΓÇó Other minor bug fixes and changes.Suggestions, comments, questions, bug reports, etc. are more than welcome!</span></text>
<script>on mouseUprepeat until the result = Cancelanswer file "Please locate a stack to compact:" of type STAKif the result Γëá Cancel thenput it into line (number of lines of cd fld 1) + 1 of cd fld 1end ifif the shiftKey Γëá up then exit repeatend repeatend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>128</left>
<top>296</top>
<right>233</right>
<bottom>329</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>condense</textStyle>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<name>Compact!</name>
<script>on writeMessage errMessageput errMessage & return after cd fld Messagesset scroll of cd fld Messages to 32000end writeMessagefunction checkShiftif the shiftKey ≠ up then return TRUEelse return FALSEend checkShifton mouseUpif cd fld 1 ≠ "" thenset cursor to 4put "Please wait…"put the FreeSize of this stack into packerFreeput size of this stack into packerSizeif the optionKey = up thenwriteMessage("------------------------------------------" & ¬return & "StackPacker 1.0.2")writeMessage("By E. Kenji Takeuchi" & return & ¬"Copyright © 1991-93 E. Kenji Takeuchi")writeMessage(the short time & "," && the short date & return & ¬"(Hold shift down to stop)")writeMessage("")else writeMessage(return)put the userlevel into oldUserLevelif oldUserLevel < 2 then ¬set userlevel to 2put cd fld 1 into stackListput number of lines of stackList into nMaxset lockMessages to trueput 0 into totalSaveput FALSE into isPackerput long name of this stack into packerPathdelete char 1 to 7 of packerPathdelete char number of chars of packerPath of packerPathrepeat with n = 1 to nMaxput "Working on stack" && n && "of" && nMax & "."lock screenpush this cdput line n of stackList into stackPathif checkShift() = TRUE then exit repeatif stackPath ≠ packerPath thengo to stack stackPathend ifif (stackPath = packerPath) or ((stackPath ≠ packerPath) and (the result = "")) thenset cursor to watchput "Working on stack" && n && "of" && nMax & ". (" & ¬short name of this stack & ")."put size of this stack into oldSizeif checkShift() = TRUE thenpop cdexit repeatelse if the userLevel < 2 thenbeepput the short name of this stack & ":" && "User level inadequate." ¬into errMessageelse if (the FreeSize of this stack ≤ 0) or (((isPacker = TRUE) or (packerFree ≤ 0)) and (stackPath = packerPath)) thenput the short name of this stack & ":" && "Already compacted." ¬into errMessageelse if cantModify of this stack ≠ FALSE thenput the short name of this stack & ":" && "Locked." into ¬errMessageelse if the diskSpace + 1024 < oldSize thenput the short name of this stack & ":" && "Insufficient " & ¬"disk space to compact." into errMessageelse if checkShift() = TRUE thenpop cdexit repeatelseif (isPacker = FALSE) and (stackPath = packerPath) thenput TRUE into isPackerput packerFree into savedSizeput packerSize into oldSizeelsedoMenu "Compact Stack"put (oldSize - size of this stack) into savedSizeend ifadd savedSize to totalSaveput round(savedSize/oldSize*100) into savedPercentput the short name of this stack & ": " & savedPercent & ¬"% saved by StackPacker." into errMessageend ifelseget the resultunlock screenif it = "Cancel" then get "Not found"put extractName(stackPath) & ":" && it & "." into errMessageend ifpop cdwriteMessage errMessageunlock screenend repeatput "Finishing up…"put round(totalSave/1024) into errMessageif errMessage = 0 then put "zero " into errMessagewriteMessage ("Total disk space saved:" && errMessage & "K." & return)if isPacker = TRUE then doMenu "Compact Stack"if oldUserLevel < 2 then set userlevel to oldUserLevelput "StackPacking completed!"hide message boxelsebeepanswer "No stacks in list to compact! Click on “Add Stack” " & ¬"to add stacks to the list."end ifend mouseUpfunction extractName stackPathput "" into stackNameget number of chars of stackPathrepeat with i = it down to 1set cursor to busyif char i of stackPath = ":" then exit repeatput char i of stackPath before stackNameend repeatset cursor to 4return stackNameend extractName</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>16</left>
<top>120</top>
<right>249</right>
<bottom>281</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Stack_List</name>
<script>on mouseDownglobal lastClickif line (word 2 of the clickLine) of me <> "" thenif the mouse Γëá up thenset cursor to arrowput line (word 2 of the clickLine) of me into cd fld DragGrayput "" into line (word 2 of the clickLine) of meset loc of cd fld DragGray to the mouseLocshow cd fld DragGrayput rect of btn Trash into trashRectrepeat until the mouse = upset loc of cd fld DragGray to the mouseLocif the mouseLoc is within trashRect thenset hilite of btn Trash to trueelseset hilite of btn Trash to falseend ifend repeathide cd fld DragGrayif hilite of btn Trash is true thendelete line (word 2 of the clickLine) of meset hilite of btn Trash to FALSEelseput cd fld DragGray into line (word 2 of the clickLine) of meend ifput "" into cd fld DragGrayend ifend ifend mouseDown</script>
<script>on mouseUpglobal spoutvisual zoom outgo cd Aboutput TRUE into spoutend mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>241</left>
<top>297</top>
<right>273</right>
<bottom>329</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>25046</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Trash</name>
<script>on mouseUpanswer "To remove a stack from the stack list, drag it into " & ¬"this Trash can." with "OK" or "Remove All"if it ≠ "OK" then put "" into cd fld Stack_Listend mouseUp</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>68</left>
<top>193</top>
<right>285</right>
<bottom>208</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>DragGray</name>
<script></script>
</part>
<content>
<layer>card</layer>
<id>7</id>
<text>StackPacker 1.0.2By E. Kenji TakeuchiCopyright © 1991-1993 E. Kenji Takeuchi.All rights reserved.</text>
</content>
<name></name>
<script></script>
</card>
card_4337.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style2">y E. Kenji Takeuchi - Shareware!</span><span class="style1">1.0.2, Copyright © 1991-1993 E. Kenji Takeuchi. All rights reserved.StackPacker allows users to compact </span><span class="style2">HyperCard 2.0</span><span class="style1"> (or higher ONLY) stacks in </span><span class="style3">batches</span><span class="style1"> to save large amounts of disk space lost due to stack fragmentation. The amount of fragmentation increases by usage. StackPacker is to stacks as disk optimizers are to disks. StackPacker can run in the background.</span><span class="style2"> E. Kenji Takeuchi NJM</span><span class="style1"> 5542 S Harper Ave Chicago, IL 60637-1830</span><span class="style2"> U.S.A. E-mail:</span><span class="style1"> ttak@midway.uchicago.edu (same address with most online services)If you use this program, you must pay the $5 (U.S. or equivalent) </span><span class="style3">shareware</span><span class="style1"> fee. Cash is acceptable.A few minor bugs fixes and changes have been made in version 1.0.2 since version 1.0.1. See About.</span></text>
</content>
<name>About</name>
<script>on mouseUpglobal spoutif spout = TRUE thenvisual wipe downgo cd Tipsput FALSE into spoutelsevisual zoom ingo next cdend ifend mouseUp</script>
